home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / mus / edit / OctamedSS1.03c.lha / Soundstudio / Rexx / omed.lha / rexx / f8.omed < prev    next >
Text File  |  1996-04-22  |  568b  |  17 lines
  1. /* F8 */
  2. if ~open("f_keys","T:f_keys.omedtemp",R) then exit
  3. f6 = readln("f_keys")
  4. f7 = readln("f_keys")
  5. f8 = readln("f_keys")
  6. call close("f_keys")
  7. rn_isranged var rn_state
  8. if ~rn_state then ed_goto line f8
  9. else do
  10.     if ~open("rn_begin","T:rn_begin.omedtemp",R) then exit
  11.     rn_begin = readln("rn_begin")
  12.     call close("rn_begin")
  13.     ed_goto line f8
  14.     ed_getcurrtrack var currtrack
  15.     if f8>=rn_begin then rn_setrange starttrack currtrack startline rn_begin endtrack currtrack endline f8
  16.     else rn_setrange starttrack currtrack startline f8 endtrack currtrack endline rn_begin
  17. end